home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE13 / IDAPI / WKDIR.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1996-02-18  |  1.8 KB  |  84 lines
  1. unit Wkdir;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, DbiProcs, DbiTypes, DB, StdCtrls, Grids, DBGrids,
  8.   DBTables;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     ListBox1: TListBox;
  13.     Button1: TButton;
  14.     Label1: TLabel;
  15.     Database1: TDatabase;
  16.     Table1: TTable;
  17.     Table2: TTable;
  18.     DataSource1: TDataSource;
  19.     DataSource2: TDataSource;
  20.     DBGrid1: TDBGrid;
  21.     DBGrid2: TDBGrid;
  22.     Button3: TButton;
  23.     Button4: TButton;
  24.     Label2: TLabel;
  25.     Label3: TLabel;
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure Button1Click(Sender: TObject);
  28.     procedure Button3Click(Sender: TObject);
  29.     procedure Button4Click(Sender: TObject);
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.   end;
  35.  
  36. var
  37.   Form1: TForm1;
  38.  
  39. implementation
  40.  
  41. {$R *.DFM}
  42.  
  43. uses ChDir;
  44.  
  45. procedure TForm1.FormCreate(Sender: TObject);
  46. begin
  47.   Session.GetTableNames('MyDb', '', True, True, ListBox1.Items);
  48. end;
  49.  
  50. procedure TForm1.Button1Click(Sender: TObject);
  51. var szDir: array[0..DBIMAXPATHLEN] of char;
  52. begin
  53.   try
  54.    ChDirDlg := TChDirDlg.Create(Self);
  55.    if ChDirDlg.ShowModal = mrOK then
  56.    begin
  57.      StrPCopy(szDir, ChDirDlg.Label1.Caption);
  58.      Check(DbiSetDirectory(Database1.Handle, szDir));
  59.    end;
  60.   except
  61.    Application.HandleException(Self);
  62.   end;
  63.   ChDirDlg.Release;
  64.   Session.GetTableNames('MyDB', '', True, True, ListBox1.Items);
  65. end;
  66.  
  67. procedure TForm1.Button3Click(Sender: TObject);
  68. begin
  69.   Table1.Close;
  70.   Table1.Tablename := ListBox1.Items[listbox1.itemindex];
  71.   Table1.Open;
  72.   Label2.Caption := Table1.TableName;
  73. end;
  74.  
  75. procedure TForm1.Button4Click(Sender: TObject);
  76. begin
  77.   Table2.Close;
  78.   Table2.Tablename := ListBox1.Items[listbox1.itemindex];
  79.   Table2.Open;
  80.   Label3.Caption := Table2.TableName;
  81. end;
  82.  
  83. end.
  84.